   1 .
   2 .CONNECT FOUR
   3 .
  10 clear ;BC=89;FC=92;NT=0;M=0;N=0;P=1;Q=60;goto 460
  15 clear ;BC=125;FC=0;box -4,-33,101,3,1;box -4,-31,95,1,1;box -4,-3,89,54,1;box -4,23,85,2,2;box -4,23,87,1,2
  18 for B=-40to 32step 12;for C=20to -25step -9;box B,C,11,8,2;next C;next B
  20 box -4,-39,118,8,2;CX=-75;CY=5;print "GAME";CX=50;CY=15;print "BLACK";CX=59;CY=-22;print #2,M
  30 CX=50;CY=-12;print "WHITE";CX=59;CY=5;print #2,N;CX=-69;CY=-5;print #2,L
  50 X=-40;D=-34;E=-34;F=-34;G=-34;H=-34;I=-34;J=-34
  60 CX=-34;CY=40;if P=1print "BLACK IS UP!";goto 200
  65 CX=-34;CY=40;if P=2print "WHITE IS UP!";goto 200
  70 if TR(1)goto 250
  80 if JX(1)=1goto 180
  90 if JX(1)=-1goto 190
 100 if JY(2)=1goto 470
 110 goto 70
 120 if TR(2)goto 250
 140 if JX(2)=1goto 180
 150 if JX(2)=-1goto 190
 160 if JY(1)=1goto 510
 170 goto 120
 180 X=X+12;goto 200
 190 X=X-12
 200 NT=0;if X<-40X=-40
 210 if X>32X=32
 220 box -4,30,100,6,2;box X,30,9,6,1;if P=2box X,30,5,4,2
 230 NT=2;MU=55;MU=58;MU=55;NT=0;if P=1goto 70
 240 if P=2goto 120
 250 NT=1;for A=88to 46step -3;MU=A;next A;NT=0;if X=-40D=D+9;goto 320
 260 if X=-28E=E+9;goto 340
 270 if X=-16F=F+9;goto 360
 280 if X=-4G=G+9;goto 380
 290 if X=8H=H+9;goto 400
 300 if X=20I=I+9;goto 420
 310 if X=32J=J+9;goto 440
 320 box X,D,9,6,1;if P=2box X,D,5,4,2;P=1;goto Q
 330 P=2;goto Q
 340 box X,E,9,6,1;if P=2box X,E,5,4,2;P=1;goto Q
 350 P=2;goto Q
 360 box X,F,9,6,1;if P=2box X,F,5,4,2;P=1;goto Q
 370 P=2;goto Q
 380 box X,G,9,6,1;if P=2box X,G,5,4,2;P=1;goto Q
 390 P=2;goto Q
 400 box X,H,9,6,1;if P=2box X,H,5,4,2;P=1;goto Q
 410 P=2;goto Q
 420 box X,I,9,6,1;if P=2box X,I,5,4,2;P=1;goto Q
 430 P=2;goto Q
 440 box X,J,9,6,1;if P=2box X,J,5,4,2;P=1;goto Q
 450 P=2;goto Q
 460 CX=-20;CY=20;print "CONNECT";A=-72;B=54;NT=1;MU=A;MU=B
 462 box A-6,0,6,8,2;CX=A;CY=0;print "F O";CX=B;CY=0;print "U R";box B+24,0,6,8,2;A=A+3;B=B-3;if A>-21NT=0;goto 466
 464 goto 462
 466 BC=121;CY=-25;print " HOW MANY GAMES?:
 468 K=KN(1)div 10+13;CX=22;CY=-25;print K;if TR(1)=0goto 468
 469 L=1;goto 15
 470 CX=-57;CY=-39;print "WHITE CONNECTS FOUR";gosub 580;M=M+1;CX=59;CY=-22;print #2,M;L=L+1
 480 if L-1=Kgoto 550
 490 if TR(2)goto 15
 500 goto 480
 510 CX=-57;CY=-39;print "BLACK CONNECTS FOUR";gosub 580;N=N+1;CX=59;CY=5;print #2,N;L=L+1;if L-1=Kgoto 550
 530 if TR(1)goto 15
 540 goto 530
 550 CX=-48;CY=40;print "G A M E  O V E R
 560 if TR(1)clear ;FC=92;goto 466
 570 for T=0to 75;next T;box -4,40,97,7,2;goto 550
 580 NT=9;MU=55;MU=58;MU=62;NT=35;MU=67;NT=0;return 
>:return 
